home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Games / talesdemo / rexx / Start_TCP_IP_Miami.rexx < prev    next >
OS/2 REXX Batch file  |  2000-06-27  |  3KB  |  53 lines
  1. /******************************************************************************************************/
  2. /* Online-Script mit Arexx                                                                            */
  3. /*     © by Martin Wolf / Eternity Hard & Software                                                  */
  4. /*      First Bit set: 03.05.1998                                                                     */
  5. /*      Last Bit set :                                                                                */
  6. /*                                                                                                */
  7. /*                                                                                                    */
  8. /*      Version 1.01 : Wenn Port schon offen ist wird Script übersprungen                             */
  9. /*      Version 1.02 : Env-Var Deja wird angelegt                                      */
  10. /*      Version 1.03 : Library rexxsupport.library wird jetzt geladen                      */
  11. /*      Version 1.04 : Das Vorhanden sein des Stacks wird jetzt auch überprüft                  */
  12. /*                                                                                                    */
  13. /******************************************************************************************************/
  14.  
  15. OPTIONS RESULTS
  16.  
  17.  
  18. ADDRESS COMMAND
  19.     IF ~SHOW('L','rexxsupport.library') THEN    /* Library laden, damit            */
  20.       CALL ADDLIB('rexxsupport.library',0,-30,0)    /* Assign-Suche ohne Meldung        */
  21.  
  22.     IF ~SHOWLIST('A','MIAMI') THEN            /* Wenn kein TCPIP-Assign da ist    */
  23.       DO
  24.         'Setenv ToT:Data/TCPIPDeja -1'        /* direkt raus hier            */
  25.         EXIT
  26.       END
  27.  
  28.     IF SHOW('P','MIAMI.1') THEN            /* TCPIP-Port da ?            */
  29.       'Setenv ToT:Data/TCPIPDeja 1'            /* Env-Var setzen            */
  30.     ELSE
  31.       'Setenv ToT:Data/TCPIPDeja 0'            /* keiner gestartet            */
  32.     IF ~SHOW('P','MIAMI.1') THEN
  33.       DO
  34.         IF ~EXISTS('Miami:Miami') THEN        /* Auf rexxsys verzichten        */
  35.           DO                    /* Üble Sache ! TCP-IP nicht korrekt installiert*/
  36.             'Setenv ToT:Data/TCPIPDeja -1'        /* es wurde wieder rumgefuscht         */ 
  37.             EXIT
  38.           END        
  39.         ELSE
  40.           'run >NIL: Miami:Miami NOGUI >NIL:'        /* Existiert TCPIP-Stack überhaupt dort ?*/
  41.         DO UNTIL SHOW('P','MIAMI.1')        /* Auf TCPIP-Stack warten warten    */
  42.           SIGNAL OFF ERROR                /* Fehler-Meldung solange auschalten    */
  43.           'WaitForPort MIAMI.1'            /* Isser nu da ?            */
  44.           SIGNAL ON ERROR                /* Fehler-Meldungen wieder ein        */
  45.         END                        
  46.       END
  47.     ENDIF
  48.         tcpipport = MIAMI.1                /* ist auf jeden Fall der aktive Port    */
  49.  
  50. ADDRESS (tcpipport)
  51.     HIDE
  52.     EXIT
  53.